home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
visds
/
taskicon.dsc
< prev
next >
Wrap
Text File
|
1999-05-02
|
878b
|
38 lines
title TaskIcon Test
dialog create,TaskIcon Test,1000,1000,100,120
dialog add,TASKICON,TaskIcon,taskicon.dsr,No Mail
REM no DIALOG SHOW, we don't want a main window
%M =
:loop
if %M
dialog set,TaskIcon,taskicon.dsr|766
dialog set,TaskIcon,Mail is waiting
else
dialog set,TaskIcon,taskicon.dsr
dialog set,TaskIcon,No Mail
end
wait event
%E = @event()
goto %E
:TaskIconCLICK
if @equal(@click(b),RIGHT)
dialog popup,Settings|Close
end
goto loop
:SettingsMENU
DIALOG CREATE,TaskIcon Properties,-1,0,228,100,NOMIN
DIALOG ADD,CHECK,cbMail,20,20,116,18,Is mail waiting?,%M
DIALOG ADD,BUTTON,OK,64,20,64,24,OK
DIALOG ADD,BUTTON,Cancel,65,145,64,24,Cancel
DIALOG SHOWMODAL
if @equal(@event(),OKBUTTON)
%M = @dlgtext(cbMail)
end
dialog close
wait event
%E = @event()
goto loop
:CloseMENU
exit
end